Garbo/Garbo.cdr/mac/comm/comstack.sit/Commstack_2.6.bin/Commstack 2.6/card_5580.txt

Text File | 1989-12-21 | 17.5 KB | 765 lines

-- card: 5580 from stack: in.6
-- bmap block id: 3766
-- flags: 0000
-- background id: 2598
-- name: card3
----- HyperTalk script -----
on opencard
  get first word of card field "Node Type" of card "config"
  if it is "unix" then
    show card button id 12
  else
    hide card button id 12
  end if
end opencard

on checkend
  set cursor to watch
  get first word of card field "Node Type" of card "config"
  if it is "unix" then
    get offset("--More--",card field 1)
  else
    get offset("press RETURN",card field 1)
  end if

  if it > 0 then
    show card button id 9
  else
    hide card button id 9
  end if

end checkend



-- part 1 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=5 top=36 right=52 bottom=109
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: First
----- HyperTalk script -----
on mouseup
  set cursor to watch
  global CommStorage
  global MailNumber
  visual effect wipe up
  go card "card3"
  put space into card field 1
  put 1 into MailNumber
  put "Current letter is " & MailNumber into card field "Usermessage"
  openascii
  get first word of card field "Node Type" of card "config"
  put it into NodeType
  if NodeType is "unix" then
    writeascii numtochar(3)
    put return & "& " into prompt
    displayscreen "dis",prompt,"--more--"
    put empty into card field 1
  else
    put "MAIL>" into prompt
  end if
  put empty into card field 1
  writeascii numtochar(17) & MailNumber & return
  displayscreen "dis",prompt,"--more--"
  closeascii
  checkend
end mouseup



-- part 2 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=5 top=53 right=70 bottom=109
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----

on mouseUp
  set cursor to watch
  global CommStorage
  global MailNumber
  global StringGot
  visual effect wipe up
  go card "card3"
  put space into card field 1
  put MailNumber+1 into MailNumber
  if MailNumber < 1 then put 1 into MailNumber
  put "Current letter is " & MailNumber into card field "UserMessage"
  openascii
  get first word of card field "Node Type" of card "config"
  put it into NodeType
  if NodeType is "unix" then
    writeascii numtochar(3)
    put return & "& " into prompt
    displayscreen "dis",prompt
    put empty into card field 1
  else
    put "MAIL>" into prompt
  end if

  writeascii numtochar(17) & MailNumber & return
  displayscreen "dis",prompt,"--more--"
  if "invalid message number" is in card field 1 then
    --if StringGot is true then
    answer "** Kirjettä numero " & MailNumber & " ei ole olemassa."
    put 1 into MailNumber
  end if
  closeascii
  checkend
end mouseUp





-- part 3 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=110 top=53 right=70 bottom=214
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Previous
----- HyperTalk script -----

on mouseUp
  set cursor to watch
  global CommStorage
  global MailNumber
  global StringGot
  go card "card3"
  put space into card field 1
  put MailNumber-1 into MailNumber
  if MailNumber < 1 then put 1 into MailNumber
  put "Current letter is " & MailNumber into card field "UserMessage"
  openascii
  get first word of card field "Node Type" of card "config"
  put it into NodeType
  if NodeType is "unix" then
    writeascii numtochar(3)
    put return & "& " into prompt
    displayscreen "dis",prompt
    put empty into card field 1
  else
    put "MAIL>" into prompt
  end if

  writeascii numtochar(17) & MailNumber & return
  displayscreen "dis",prompt
  if "invalid message number" is in card field 1 then
    --if StringGot is true then
    answer "** Kirjettä numero " & MailNumber & " ei ole olemassa."
    put 1 into MailNumber
  end if
  closeascii
  checkend
end mouseUp





-- part 4 (field)
-- low flags: 02
-- high flags: 2007
-- rect: left=3 top=90 right=338 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: MailDir


-- part 5 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=216 top=330 right=342 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: LineCount


-- part 6 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=296 top=330 right=342 bottom=409
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: UserMessage


-- part 7 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=110 top=71 right=89 bottom=251
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Get letter number ...
----- HyperTalk script -----
on mouseup
  set cursor to watch
  global CommStorage
  global MailNumber
  global StringGot
  go card "card3"
  put space into card field 1
  ask "Give number of the letter you want to see" with MailNumber
  put it into MailNumber
  put "Current letter is " & MailNumber into card field "UserMessage"
  openascii
  get first word of card field "Node Type" of card "config"
  put it into NodeType
  if NodeType is "unix" then
    writeascii numtochar(3)
    put return & "& " into prompt
    displayscreen "dis",prompt
    put empty into card field 1
  else
    put "MAIL>" into prompt
  end if

  writeascii numtochar(17) & MailNumber & return
  displayscreen "dis",prompt,"--more--"
  if "invalid message number" is in card field 1 then
    -- if StringGot is true then
    answer "** Kirjettä numero " & MailNumber & " ei ole olemassa."
    put 1 into MailNumber
  end if
  closeascii
  checkend
end mouseup



-- part 8 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=318 top=144 right=161 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Change [{| to Çüà
----- HyperTalk script -----
on mouseUp
  set cursor to watch
  set cursor to watch
  replace "{","ä"
  replace "}","å"
  replace "|","├╢"
  replace "\","Ö"
  replace "[","Ä"
  replace "]","Å"
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=5 top=71 right=89 bottom=109
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next page
----- HyperTalk script -----
on mouseup
  global CommSpeed,CommPrompt, NodeName, NodeType, Username
  openascii

  if NodeType is "unix" then
    writeascii(" ")
    put return & "& " into prompt
  else
    writeascii(return)
    put "MAIL>" into prompt
  end if
  put empty into card field 1
  displayscreen "dis",prompt,"--more--"
  -- put number of characters in card field 1
  if number of characters in card field 1 < 3 then
    put " *** Kirje loppu **** " into card field 1
    --put "Tyhjä se on"
  end if

  closeascii
  checkend
end mouseup



-- part 10 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=268 top=36 right=53 bottom=394
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Letter directory
----- HyperTalk script -----
on mouseup
  global DirectoryGot
  global CommStorage
  openascii
  get first word of card field "Node Type" of card "config"
  put it into NodeType
  if NodeType is "unix" then
    writeascii numtochar(3)
  end if

  closeascii
  MailDirectory
  put true into DirectoryGot
end mouseup



-- part 11 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=458 top=36 right=79 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Exit
----- HyperTalk script -----
on mouseUp
  global CommStore
  global CommSpeed,CommPrompt, NodeName, NodeType, Username
  openascii
  go card "card1"
  put empty into card field 1
  put NodeType into NodeType
  writeascii "q" & return
  displayscreen "dis",CommPrompt
  put empty into card field 1
  closeascii

end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=397 top=36 right=79 bottom=459
-- title width / last selected line: 0
-- icon id / first selected line: 14244 / 14244
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:  Cancel read
----- HyperTalk script -----
on mouseUp
  openascii
  go card "card1"
  get first word of card field "Node Type" of card "config"
  put it into NodeType
  if NodeType is "unix" then
    writeascii numtochar(3)

  end if

  put space into card field 1
  if NodeType is "unix" then
    writeascii ("x" & return)
  else
    writeascii numtochar(25)
  end if

  displayscreen "flush"
  put space into card field 1
  closeascii

end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=250 top=71 right=89 bottom=396
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete this letter
----- HyperTalk script -----
on mouseup
  global CommStorage
  global MailNumber
  global DirectoryGot
  openascii
  get first word of card field "Node Type" of card "config"
  put it into NodeType
  if NodeType is "unix" then
    writeascii numtochar(3)
    put return & "& " into prompt
    displayscreen "dis",prompt
    put empty into card field 1
  else
    put "MAIL> " into prompt
  end if

  writeascii numtochar(17) & "d" & return
  put false into DirectoryGot
  put space into card field 1
  displayscreen "dis",prompt,"--more--"
  closeascii
  checkend
  click at the location of card button id 2
end mouseup



-- part 14 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=214 top=53 right=70 bottom=349
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Reply to this letter
----- HyperTalk script -----
on mouseup
  global CommSpeed,CommPrompt, NodeName, NodeType, Username
  global SendMode
  put "Reply" into SendMode
  go card "card2"
  openascii
  if NodeType is "unix" then
    writeascii numtochar(3)
  end if
  displayscreen "dis",return & "& "
  writeascii (numtochar(17) & "r" & return)
  put space into card field 1
  displayscreen
  delete first line of card field 1
  get card field 1
  put it into card field "UserMessage"
  show card field "UserMessage"
  put space into card field 1
  closeascii
end mouseup



-- part 15 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=318 top=109 right=126 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Send a letter
----- HyperTalk script -----
on mouseUp
  global SendMode
  put "Forward" into SendMode
  go card "card2"
  openascii
  get first word of card field "Node Type" of card "config"
  put it into NodeType
  if NodeType is "unix" then
    --writeascii numtochar(3)
    -- writeascii numtochar(17) & "m" & return
  end if
  displayscreen
  -- delete first line of card field 1
  -- get card field 1
  -- put it into card field "UserMessage"
  -- show card field "UserMessage"
  -- put space into card field 1
  hide card field "UserMessage"
  closeascii
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=110 top=36 right=53 bottom=272
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Forward this letter
----- HyperTalk script -----
on mouseUp
  global SendMode
  put "Forward" into SendMode
  go card "card2"
  openascii
  put first word of card field "Node Type" of card "config" into NodeType
  put first word of card field "Username" of card "Config" into Username
  if NodeType is "unix" then
    writeascii numtochar(3)
    displayscreen "dis","&"
    writeascii numtochar(17) & "s /tmp/MacForward." & Username & return
    displayscreen "dis","&"
    writeascii numtochar(26) & return
    displayscreen "dis","%"
    ask "Kenelle kirje pistetään eteenpäin?" with "kallio"
    writeascii "/usr/ucb/mail " & it & "< /tmp/MacForward." & Username & return
    displayscreen "dis","%"
    writeascii "\rm /tmp/MacForward." & Username & return
    displayscreen "dis","%"
    writeascii "fg" & return
    displayscreen "dis","%"
  else
    writeascii "forward" & return
    displayscreen "dis","TO:"
    ask "Kenelle kirje pistetään eteenpäin?" with "kallio"
    writeascii it & return
    displayscreen "dis","MAIL>"
  end if
  -- delete first line of card field 1
  -- get card field 1
  -- put it into card field "UserMessage"
  -- show card field "UserMessage"
  -- put space into card field 1
  hide card field "UserMessage"
  closeascii
  go card "card3"
end mouseUp


-- part 18 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=383 top=162 right=180 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Any Command
----- HyperTalk script -----
on mouseUp
  global CommStorage
  global CommSpeed,CommPrompt, NodeName, NodeType, Username
  openascii
  ask "Komento"
  writeascii numtochar(17) & it & return
  put space into card field 1
  displayscreen "dis",CommPrompt
  closeascii
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=307 top=127 right=143 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Save this into host disc
----- HyperTalk script -----
on mouseup
  global CommSpeed,CommPrompt, NodeName, NodeType, Username
  --global FolderName
  put card field "FolderName" into FolderName
  openascii
  if NodeType is "unix" then
    writeascii numtochar(3)
  end if
  ask "Anna kansion nimi. (Folder name.)" with FolderName
  put it into FolderName
  displayscreen "dis",return & "& "
  writeascii (numtochar(17) & "s " & FolderName & return)
  displayscreen "dis",return & "& "
  closeascii
  put FolderName into card field "FolderName"
end mouseup



-- part 20 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=311 top=3 right=16 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: FolderName


-- part 21 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=338 top=89 right=106 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lisèè painonappeja
----- HyperTalk script -----
on mouseUp
  show card button id 8
  show card button id 15
  show card button id 18
  show card button id 19
  show card button id 22
  show card button id 23
  hide card button id 21
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=313 top=90 right=107 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Poista ylimèèrèiset napit
----- HyperTalk script -----
on mouseUp
  hide card button id 8
  hide card button id 15
  hide card button id 18
  hide card button id 19
  hide card button id 22
  hide card button id 23
  show card button id 21
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=328 top=182 right=200 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Poimi BINHEX mikrolle
----- HyperTalk script -----
on mouseup
  savebinhex return & "& "
  -- NewsStateDef
end mouseup



-- part contents for card part 6
----- text -----
Current letter is 3

-- part contents for card part 5
----- text -----
Lines 15

-- part contents for card part 20
----- text -----
Zirkle.hqx

-- part contents for card part 4
----- text -----

,pHK%+H%%!'!%T3Naae#CP$!r!F!$*BHEde#2f'#F)6'D53!!he#2h,#3!!@J0fb
`Q3&!1&6*!eCa!*aJ'j+j"!&!!ji*!Yq*#J*J"L"b*SXj")8*!!VJ!1*T%&T"Q94
C&I*j0lV3RJ&!#[9)!9DK!043RbX5&A!)"GC*%4!`#Ma4%,cJ&%C!"I2M!(FM!YS
CS@83"*HC%MKJS!X3!-MJ&$I!!!2U$`"!"MPJ%#'kR)`*!!Zj!')!!&D`SL[L$3J
*#iBT&k0j*ZVJ&%$!#[")%'5CP`&J$dj""!"J&3'!'+1j!!,!%e4*#9Da!$pU"MB
+T5P5"NCJSVB""3#!T@,K5`K*"-D*$Uc*Mf3+KpJ`S*3hQKSJ!)CB"NaL&3aJPmV
3RJ*32aZ+!e@+($dU!)`"Kafk!-CJS!*L"I@)"pETQaVJS,BK!$1kSG33N!!)S3@
5Q4*ZJ*!!k$!r$D!,D4UTQdUR#PS3D`1FbL%!HZ#C3NSk8J!!6"#F!Q))5FS&9Z%
!R[#EQbN!NZ#CK'#BI!!!(,#VZFUB(!#25US!Q4S!528`!m!@#C%j)U'SdCS3"B!
(*)%3AC1Ce5UIl%!5YE%!a!!8E['(#D'Y$'!,*,%F$6!D#p-!hlS`$S#Fe3F!%b!
+!S!1!J!),QB!!!:
---

&